home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-04-09 | 38.4 KB | 1,646 lines |
- object SIMx86Form: TSIMx86Form
- Left = 214
- Top = 215
- Width = 600
- Height = 400
- Caption = 'SIMx86'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- Menu = MainMenu
- PixelsPerInch = 96
- PrintScale = poNone
- Visible = True
- OnCreate = FormCreate
- TextHeight = 16
- object Simx86Pages: TTabbedNotebook
- Left = 2
- Top = 0
- Width = 587
- Height = 353
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Pitch = fpVariable
- Font.Style = [fsBold]
- TabFont.Color = clBtnText
- TabFont.Height = -11
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- OnChange = Simx86PagesChange
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Editor'
- object StartAdrsLbl: TLabel
- Left = 324
- Top = 20
- Width = 108
- Height = 16
- Hint =
- 'Enter the memory address of your program'#39's first instruction her' +
- 'e.'
- Caption = 'Starting Address:'
- ParentShowHint = False
- ShowHint = True
- end
- object SourceCode: TMemo
- Left = 4
- Top = 12
- Width = 310
- Height = 305
- ScrollBars = ssVertical
- TabOrder = 0
- WantTabs = True
- WordWrap = False
- end
- object StartAdrs: TEdit
- Left = 441
- Top = 18
- Width = 40
- Height = 19
- Hint = 'Enter a hexadecimal number here.'
- MaxLength = 4
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '0000'
- OnChange = StartAdrsChange
- end
- object ASMbtn: TButton
- Left = 403
- Top = 61
- Width = 89
- Height = 33
- Hint = 'Press this button to assemble your code to memory.'
- Caption = 'Assemble'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = ASMbtnClick
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Memory'
- object Label0: TLabel
- Left = 76
- Top = 16
- Width = 7
- Height = 16
- Caption = '0'
- end
- object Label1: TLabel
- Left = 104
- Top = 16
- Width = 7
- Height = 16
- Caption = '1'
- end
- object Label2: TLabel
- Left = 132
- Top = 16
- Width = 7
- Height = 16
- Caption = '2'
- end
- object Label3: TLabel
- Left = 160
- Top = 16
- Width = 7
- Height = 16
- Caption = '3'
- end
- object Label4: TLabel
- Left = 188
- Top = 16
- Width = 7
- Height = 16
- Caption = '4'
- end
- object Label5: TLabel
- Left = 216
- Top = 16
- Width = 7
- Height = 16
- Caption = '5'
- end
- object Label6: TLabel
- Left = 244
- Top = 16
- Width = 7
- Height = 16
- Caption = '6'
- end
- object Label7: TLabel
- Left = 272
- Top = 16
- Width = 7
- Height = 16
- Caption = '7'
- end
- object Lbl8: TLabel
- Left = 12
- Top = 72
- Width = 28
- Height = 16
- Caption = '0008'
- end
- object Lbl10: TLabel
- Left = 12
- Top = 100
- Width = 28
- Height = 16
- Caption = '0010'
- end
- object Lbl18: TLabel
- Left = 12
- Top = 128
- Width = 28
- Height = 16
- Caption = '0018'
- end
- object Lbl20: TLabel
- Left = 12
- Top = 156
- Width = 28
- Height = 16
- Caption = '0020'
- end
- object Lbl28: TLabel
- Left = 12
- Top = 184
- Width = 28
- Height = 16
- Caption = '0028'
- end
- object Lbl30: TLabel
- Left = 12
- Top = 212
- Width = 28
- Height = 16
- Caption = '0030'
- end
- object Lbl38: TLabel
- Left = 12
- Top = 240
- Width = 28
- Height = 16
- Caption = '0038'
- end
- object IntVectLbl: TLabel
- Left = 344
- Top = 48
- Width = 103
- Height = 16
- Hint =
- 'Put the address of your interrupt service routine here (FFFF=no ' +
- 'ISR).'
- Caption = 'Interrupt Vector:'
- ParentShowHint = False
- ShowHint = True
- end
- object ResetVectLbl: TLabel
- Left = 344
- Top = 92
- Width = 84
- Height = 16
- Hint =
- 'Put the address of your program'#39's first instruction here (usuall' +
- 'y zero).'
- Caption = 'Reset Vector:'
- ParentShowHint = False
- ShowHint = True
- end
- object Label8: TLabel
- Left = 304
- Top = 212
- Width = 268
- Height = 48
- Caption =
- 'Note: Memory locations 0FFF0h through 0FFFFh are reserved for me' +
- 'mory-mapped I/O. You cannot edit them here.'
- WordWrap = True
- end
- object Mem01: TEdit
- Tag = 3
- Left = 100
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- Text = '00'
- OnChange = HexChange
- end
- object Mem02: TEdit
- Tag = 4
- Left = 128
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Text = '00'
- OnChange = HexChange
- end
- object Mem03: TEdit
- Tag = 5
- Left = 156
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- Text = '00'
- OnChange = HexChange
- end
- object Mem04: TEdit
- Tag = 6
- Left = 184
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- Text = '00'
- OnChange = HexChange
- end
- object Mem05: TEdit
- Tag = 7
- Left = 212
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Text = '00'
- OnChange = HexChange
- end
- object Mem00: TEdit
- Tag = 2
- Left = 72
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this hexadecimal value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '00'
- OnChange = HexChange
- end
- object Mem06: TEdit
- Tag = 8
- Left = 240
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- Text = '00'
- OnChange = HexChange
- end
- object Mem07: TEdit
- Tag = 9
- Left = 268
- Top = 40
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 8
- Text = '00'
- OnChange = HexChange
- end
- object AdrsEntry: TEdit
- Tag = 1
- Left = 12
- Top = 40
- Width = 45
- Height = 24
- Hint = 'Enter memory starting address here (hexadecimal).'
- MaxLength = 4
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '0000'
- OnChange = AdrsEntryChange
- end
- object Mem10: TEdit
- Tag = 10
- Left = 72
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 9
- Text = '00'
- OnChange = HexChange
- end
- object Mem11: TEdit
- Tag = 11
- Left = 100
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- Text = '00'
- OnChange = HexChange
- end
- object Mem12: TEdit
- Tag = 12
- Left = 128
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- Text = '00'
- OnChange = HexChange
- end
- object Mem13: TEdit
- Tag = 13
- Left = 156
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- Text = '00'
- OnChange = HexChange
- end
- object Mem14: TEdit
- Tag = 14
- Left = 184
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 13
- Text = '00'
- OnChange = HexChange
- end
- object Mem15: TEdit
- Tag = 15
- Left = 212
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 14
- Text = '00'
- OnChange = HexChange
- end
- object Mem16: TEdit
- Tag = 16
- Left = 240
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 15
- Text = '00'
- OnChange = HexChange
- end
- object Mem17: TEdit
- Tag = 17
- Left = 268
- Top = 68
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 16
- Text = '00'
- OnChange = HexChange
- end
- object Mem27: TEdit
- Tag = 25
- Left = 268
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 24
- Text = '00'
- OnChange = HexChange
- end
- object Mem26: TEdit
- Tag = 24
- Left = 240
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 23
- Text = '00'
- OnChange = HexChange
- end
- object Mem25: TEdit
- Tag = 23
- Left = 212
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 22
- Text = '00'
- OnChange = HexChange
- end
- object Mem24: TEdit
- Tag = 22
- Left = 184
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 21
- Text = '00'
- OnChange = HexChange
- end
- object Mem23: TEdit
- Tag = 21
- Left = 156
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 20
- Text = '00'
- OnChange = HexChange
- end
- object Mem22: TEdit
- Tag = 20
- Left = 128
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 19
- Text = '00'
- OnChange = HexChange
- end
- object Mem21: TEdit
- Tag = 19
- Left = 100
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 18
- Text = '00'
- OnChange = HexChange
- end
- object Mem20: TEdit
- Tag = 18
- Left = 72
- Top = 96
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 17
- Text = '00'
- OnChange = HexChange
- end
- object Mem30: TEdit
- Tag = 26
- Left = 72
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 25
- Text = '00'
- OnChange = HexChange
- end
- object Mem31: TEdit
- Tag = 27
- Left = 100
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 26
- Text = '00'
- OnChange = HexChange
- end
- object Mem32: TEdit
- Tag = 28
- Left = 128
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 27
- Text = '00'
- OnChange = HexChange
- end
- object Mem33: TEdit
- Tag = 29
- Left = 156
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 28
- Text = '00'
- OnChange = HexChange
- end
- object Mem34: TEdit
- Tag = 30
- Left = 184
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 29
- Text = '00'
- OnChange = HexChange
- end
- object Mem35: TEdit
- Tag = 31
- Left = 212
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 30
- Text = '00'
- OnChange = HexChange
- end
- object Mem36: TEdit
- Tag = 32
- Left = 240
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 31
- Text = '00'
- OnChange = HexChange
- end
- object Mem37: TEdit
- Tag = 33
- Left = 268
- Top = 124
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 32
- Text = '00'
- OnChange = HexChange
- end
- object Mem47: TEdit
- Tag = 41
- Left = 268
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 40
- Text = '00'
- OnChange = HexChange
- end
- object Mem46: TEdit
- Tag = 40
- Left = 240
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 39
- Text = '00'
- OnChange = HexChange
- end
- object Mem45: TEdit
- Tag = 39
- Left = 212
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 38
- Text = '00'
- OnChange = HexChange
- end
- object Mem44: TEdit
- Tag = 38
- Left = 184
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 37
- Text = '00'
- OnChange = HexChange
- end
- object Mem43: TEdit
- Tag = 37
- Left = 156
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 36
- Text = '00'
- OnChange = HexChange
- end
- object Mem42: TEdit
- Tag = 36
- Left = 128
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 35
- Text = '00'
- OnChange = HexChange
- end
- object Mem41: TEdit
- Tag = 35
- Left = 100
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 34
- Text = '00'
- OnChange = HexChange
- end
- object Mem40: TEdit
- Tag = 34
- Left = 72
- Top = 152
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 33
- Text = '00'
- OnChange = HexChange
- end
- object Mem50: TEdit
- Tag = 42
- Left = 72
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 41
- Text = '00'
- OnChange = HexChange
- end
- object Mem51: TEdit
- Tag = 43
- Left = 100
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 42
- Text = '00'
- OnChange = HexChange
- end
- object Mem52: TEdit
- Tag = 44
- Left = 128
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 43
- Text = '00'
- OnChange = HexChange
- end
- object Mem53: TEdit
- Tag = 45
- Left = 156
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 44
- Text = '00'
- OnChange = HexChange
- end
- object Mem54: TEdit
- Tag = 46
- Left = 184
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 45
- Text = '00'
- OnChange = HexChange
- end
- object Mem55: TEdit
- Tag = 47
- Left = 212
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 46
- Text = '00'
- OnChange = HexChange
- end
- object Mem56: TEdit
- Tag = 48
- Left = 240
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 47
- Text = '00'
- OnChange = HexChange
- end
- object Mem57: TEdit
- Tag = 49
- Left = 268
- Top = 180
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 48
- Text = '00'
- OnChange = HexChange
- end
- object Mem67: TEdit
- Tag = 57
- Left = 268
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 56
- Text = '00'
- OnChange = HexChange
- end
- object Mem66: TEdit
- Tag = 56
- Left = 240
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 55
- Text = '00'
- OnChange = HexChange
- end
- object Mem65: TEdit
- Tag = 55
- Left = 212
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 54
- Text = '00'
- OnChange = HexChange
- end
- object Mem64: TEdit
- Tag = 54
- Left = 184
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 53
- Text = '00'
- OnChange = HexChange
- end
- object Mem63: TEdit
- Tag = 53
- Left = 156
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 52
- Text = '00'
- OnChange = HexChange
- end
- object Mem62: TEdit
- Tag = 52
- Left = 128
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 51
- Text = '00'
- OnChange = HexChange
- end
- object Mem61: TEdit
- Tag = 51
- Left = 100
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 50
- Text = '00'
- OnChange = HexChange
- end
- object Mem60: TEdit
- Tag = 50
- Left = 72
- Top = 208
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 49
- Text = '00'
- OnChange = HexChange
- end
- object Mem70: TEdit
- Tag = 58
- Left = 72
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 57
- Text = '00'
- OnChange = HexChange
- end
- object Mem71: TEdit
- Tag = 59
- Left = 100
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 58
- Text = '00'
- OnChange = HexChange
- end
- object Mem72: TEdit
- Tag = 60
- Left = 128
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 59
- Text = '00'
- OnChange = HexChange
- end
- object Mem73: TEdit
- Tag = 61
- Left = 156
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 60
- Text = '00'
- OnChange = HexChange
- end
- object Mem74: TEdit
- Tag = 62
- Left = 184
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 61
- Text = '00'
- OnChange = HexChange
- end
- object Mem75: TEdit
- Tag = 63
- Left = 212
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 62
- Text = '00'
- OnChange = HexChange
- end
- object Mem76: TEdit
- Tag = 64
- Left = 240
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 63
- Text = '00'
- OnChange = HexChange
- end
- object Mem77: TEdit
- Tag = 65
- Left = 268
- Top = 236
- Width = 25
- Height = 24
- Hint = 'Modify a memory location by changing this value.'
- MaxLength = 2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 64
- Text = '00'
- OnChange = HexChange
- end
- object IntVect: TEdit
- Tag = 66
- Left = 468
- Top = 44
- Width = 45
- Height = 24
- Hint = 'Enter a hexadecimal number here.'
- MaxLength = 4
- ParentShowHint = False
- ShowHint = True
- TabOrder = 65
- Text = 'FFFF'
- OnChange = IntVectChange
- end
- object ResetVect: TEdit
- Tag = 67
- Left = 468
- Top = 88
- Width = 45
- Height = 24
- Hint = 'Enter a hexadecimal number here.'
- MaxLength = 4
- ParentShowHint = False
- ShowHint = True
- TabOrder = 67
- Text = '0000'
- OnChange = AdrsEntryChange
- end
- object ClrMemBtn: TButton
- Left = 380
- Top = 132
- Width = 101
- Height = 29
- Hint = 'Pressing this button writes zeros throughout memory.'
- Caption = 'Clear Memory'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 66
- OnClick = ClrMemBtnClick
- end
- end
- object TTabPage
- Left = 5
- Top = 26
- Caption = 'Emulator'
- object OutPort8: TShape
- Left = 268
- Top = 228
- Width = 17
- Height = 17
- Pen.Width = 3
- Shape = stCircle
- end
- object OutPortA: TShape
- Left = 309
- Top = 228
- Width = 17
- Height = 17
- Pen.Width = 3
- Shape = stCircle
- end
- object OutPortC: TShape
- Left = 351
- Top = 228
- Width = 17
- Height = 17
- Pen.Width = 3
- Shape = stCircle
- end
- object OutPortE: TShape
- Left = 392
- Top = 228
- Width = 17
- Height = 17
- Pen.Width = 3
- Shape = stCircle
- end
- object FFF8Lbl: TLabel
- Left = 260
- Top = 208
- Width = 31
- Height = 16
- Caption = 'FFF8'
- end
- object FFFALbl: TLabel
- Left = 301
- Top = 208
- Width = 33
- Height = 16
- Caption = 'FFFA'
- end
- object FFFCLbl: TLabel
- Left = 343
- Top = 208
- Width = 33
- Height = 16
- Caption = 'FFFC'
- end
- object FFFELbl: TLabel
- Left = 384
- Top = 208
- Width = 32
- Height = 16
- Caption = 'FFFE'
- end
- object OutputLbl: TLabel
- Left = 516
- Top = 4
- Width = 42
- Height = 16
- Caption = 'Output'
- end
- object AXLbl: TLabel
- Left = 352
- Top = 8
- Width = 18
- Height = 16
- Caption = 'AX'
- end
- object BXLbl: TLabel
- Left = 352
- Top = 36
- Width = 18
- Height = 16
- Caption = 'BX'
- end
- object CXLbl: TLabel
- Left = 352
- Top = 64
- Width = 18
- Height = 16
- Caption = 'CX'
- end
- object DXLbl: TLabel
- Left = 352
- Top = 92
- Width = 18
- Height = 16
- Caption = 'DX'
- end
- object IPLbl: TLabel
- Left = 4
- Top = 8
- Width = 13
- Height = 16
- Caption = 'IP'
- end
- object Instruction: TLabel
- Left = 12
- Top = 36
- Width = 233
- Height = 14
- Caption = ' '
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- end
- object InputLbl: TLabel
- Left = 452
- Top = 4
- Width = 32
- Height = 16
- Caption = 'Input'
- end
- object DisAsm: TListBox
- Left = 4
- Top = 56
- Width = 249
- Height = 229
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Courier New'
- Font.Pitch = fpVariable
- Font.Style = []
- ItemHeight = 14
- ParentFont = False
- TabOrder = 0
- end
- object Output: TListBox
- Left = 512
- Top = 24
- Width = 57
- Height = 293
- ItemHeight = 16
- TabOrder = 1
- end
- object InPort0: TBiSwitch
- Left = 260
- Top = 252
- Width = 37
- Height = 64
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'FFF0'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 2
- end
- object InPort2: TBiSwitch
- Left = 300
- Top = 252
- Width = 37
- Height = 64
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'FFF2'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 3
- end
- object InPort4: TBiSwitch
- Left = 340
- Top = 252
- Width = 37
- Height = 64
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'FFF4'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 4
- end
- object InPort6: TBiSwitch
- Left = 380
- Top = 252
- Width = 37
- Height = 64
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'FFF6'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 5
- end
- object RunBtn: TButton
- Left = 256
- Top = 4
- Width = 53
- Height = 25
- Caption = 'Run'
- TabOrder = 6
- OnClick = RunBtnClick
- end
- object StepBtn: TButton
- Left = 256
- Top = 36
- Width = 53
- Height = 25
- Caption = 'Step'
- TabOrder = 7
- OnClick = StepBtnClick
- end
- object HaltBtn: TButton
- Left = 256
- Top = 68
- Width = 53
- Height = 25
- Caption = 'Halt'
- Enabled = False
- TabOrder = 8
- OnClick = HaltBtnClick
- end
- object InterruptBtn: TButton
- Left = 256
- Top = 172
- Width = 65
- Height = 21
- Caption = 'Interrupt'
- TabOrder = 9
- OnClick = InterruptBtnClick
- end
- object RunningLite: TPanel
- Left = 256
- Top = 116
- Width = 61
- Height = 21
- Caption = 'Running'
- Color = clGray
- TabOrder = 10
- end
- object AXValue: TEdit
- Left = 380
- Top = 4
- Width = 41
- Height = 21
- Hint = 'Enter a hexadecimal number here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- Text = '0000'
- end
- object BXValue: TEdit
- Left = 380
- Top = 32
- Width = 41
- Height = 21
- Hint = 'Enter a hexadecimal number here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 12
- Text = '0000'
- end
- object DXValue: TEdit
- Left = 380
- Top = 88
- Width = 41
- Height = 21
- Hint = 'Enter a hexadecimal number here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 13
- Text = '0000'
- end
- object CXValue: TEdit
- Left = 380
- Top = 60
- Width = 41
- Height = 21
- Hint = 'Enter a hexadecimal number here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 14
- Text = '0000'
- end
- object IPValue: TEdit
- Left = 20
- Top = 8
- Width = 41
- Height = 17
- Hint = 'Enter a hexadecimal number here.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 15
- Text = '0000'
- OnChange = IPValueChange
- end
- object DisAsmAdrs: TEdit
- Left = 8
- Top = 292
- Width = 45
- Height = 21
- Hint = 'Enter a hexadecimal number here.'
- TabOrder = 16
- Text = '0000'
- OnChange = DisAsmAdrsChange
- end
- object EqualFlag: TCheckBox
- Left = 352
- Top = 136
- Width = 57
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Equal'
- TabOrder = 17
- end
- object LessThanFlag: TCheckBox
- Left = 352
- Top = 116
- Width = 57
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Less'
- TabOrder = 18
- end
- object ResetBtn: TButton
- Left = 348
- Top = 172
- Width = 65
- Height = 21
- Caption = 'Reset'
- TabOrder = 19
- OnClick = ResetBtnClick
- end
- object Input: TListBox
- Left = 444
- Top = 24
- Width = 57
- Height = 293
- ItemHeight = 16
- TabOrder = 20
- end
- object SpinButton: TSpinButton
- Left = 56
- Top = 292
- Width = 20
- Height = 21
- DownGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000007F7F007F7F
- 007F7F007F7F007F7F007F7F007F7F007F7F007F7F00007F7F007F7F007F7F00
- 7F7F000000007F7F007F7F007F7F007F7F00007F7F007F7F007F7F0000000000
- 00000000007F7F007F7F007F7F00007F7F007F7F000000000000000000000000
- 000000007F7F007F7F00007F7F00000000000000000000000000000000000000
- 0000007F7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
- 7F00}
- TabOrder = 21
- UpGlyph.Data = {
- DE000000424DDE00000000000000360000002800000009000000060000000100
- 180000000000A800000000000000000000000000000000000000007F7F007F7F
- 007F7F007F7F007F7F007F7F007F7F007F7F007F7F00007F7F00000000000000
- 0000000000000000000000000000007F7F00007F7F007F7F0000000000000000
- 00000000000000007F7F007F7F00007F7F007F7F007F7F000000000000000000
- 007F7F007F7F007F7F00007F7F007F7F007F7F007F7F000000007F7F007F7F00
- 7F7F007F7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
- 7F00}
- OnDownClick = SpinButtonDownClick
- OnUpClick = SpinButtonUpClick
- end
- end
- end
- object MainMenu: TMainMenu
- Left = 556
- Top = 65520
- object File1: TMenuItem
- Caption = 'File'
- object New: TMenuItem
- Caption = 'New'
- OnClick = NewClick
- end
- object Open: TMenuItem
- Caption = 'Open'
- OnClick = OpenClick
- end
- object Save: TMenuItem
- Caption = 'Save'
- OnClick = SaveClick
- ShortCutText = 'Ctrl+S'
- end
- object SaveAs: TMenuItem
- Caption = 'Save As'
- OnClick = SaveAsClick
- end
- object BeforeQuit: TMenuItem
- Caption = '-'
- end
- object PrintMenuItem: TMenuItem
- Caption = 'Print'
- OnClick = PrintMenuItemClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Quit: TMenuItem
- Caption = 'Exit'
- OnClick = QuitClick
- end
- end
- object Edit: TMenuItem
- Caption = 'Edit'
- object Cut: TMenuItem
- Caption = 'Cut'
- OnClick = CutClick
- ShortCutText = 'Ctrl+X'
- end
- object Copy: TMenuItem
- Caption = 'Copy'
- OnClick = CopyClick
- ShortCutText = 'Ctrl+C'
- end
- object Paste: TMenuItem
- Caption = 'Paste'
- OnClick = PasteClick
- ShortCutText = 'Ctrl+V'
- end
- object Delete: TMenuItem
- Caption = 'Delete'
- OnClick = DeleteClick
- ShortCutText = 'Del'
- end
- object EditBreak: TMenuItem
- Caption = '-'
- ShortCutText = 'Ctrl+A'
- end
- object SelectAll: TMenuItem
- Caption = 'Select All'
- OnClick = SelectAllClick
- ShortCutText = 'Ctrl+A'
- end
- end
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'x86'
- FileName = '*.x86'
- Filter = 'Assembly Files (.x86)|*.x86|Text files (.txt)|*.txt'
- HistoryList.Strings = (
- '.x86'
- '.txt')
- Title = 'Open Assembly File'
- Left = 525
- Top = 65522
- end
- object SaveDialog: TSaveDialog
- Filter = 'Assembly (.x86)|*.x86|Text (.x86)|*.txt'
- Left = 496
- Top = 65520
- end
- object PrintDialog: TPrintDialog
- Left = 468
- Top = 65520
- end
- end
-